www.gusucode.com > 中国货源网导航程序源码 1 > 中国货源网导航程序源码 1.0/8月11日备份/admin/admin_siteconfig.asp
<!--#include file="mdb.asp"-->
<!--#include file="aq.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='index.asp';</script>")
Response.End
End if
dim yl1,yl2,yl3,yl4,yl5,yl6,yl7,yl8,yl9,yl10,yl11,yl12,yl13,yl14,yl15,yl16,yl17,action
currentadmin=Session("Admin")
yl1=request("yl1")
yl2=request("yl2")
yl3=request("yl3")
yl4=request("yl4")
yl5=request("yl5")
yl6=request("yl6")
yl7=request("yl7")
yl8=request("yl8")
yl9=request("yl9")
yl10=request("yl10")
yl11=request("yl11")
yl12=request("yl12")
yl13=request("yl13")
yl14=request("yl14")
yl15=request("yl15")
yl16=request("yl16")
yl17=request("yl17")
action=request("action")
if action="doit" then
if yl1="" then
Response.Write "<script language=javascript>alert('请输入新的网站名称');this.location.href='admin_siteconfig.asp';</script>"
Response.End
end if
if yl2="" then
Response.Write "<script language=javascript>alert('请输入新的网站地址');this.location.href='admin_siteconfig.asp';</script>"
Response.End
end if
if yl3="" then
Response.Write "<script language=javascript>alert('请输入新的站长邮箱');this.location.href='admin_siteconfig.asp';</script>"
Response.End
end if
if yl4="" then
Response.Write "<script language=javascript>alert('请输入新的版权信息');this.location.href='admin_siteconfig.asp';</script>"
Response.End
end if
set r=server.createobject("adodb.recordset")
r.open "select * from title",conn,1,3
if not r.eof then
r("site")=yl1
r("siteurl")=yl2
r("email")=yl3
r("Copyright")=yl4
r("login")=yl5
r("icp")=yl6
r("qq")=yl7
r("xiaoyu_ads01")=yl8
r("xiaoyu_ads02")=yl9
r("xiaoyu_ads03")=yl10
r("xiaoyu_ads04")=yl11
r("xiaoyu_ads05")=yl12
r("xiaoyu_ads06")=yl13
r("xiaoyu_ads07")=yl14
r("xiaoyu_ads08")=yl15
r("xiaoyu_ads09")=yl16
r("xiaoyu_ads10")=yl17
r.update
Response.Write "<script language=javascript>alert('网站信息配置已成功更改！');this.location.href='admin_siteconfig.asp';</script>"
Response.End
else
Response.Write "<script language=javascript>alert('无法完成请求！');this.location.href='admin_siteconfig.asp';</script>"
Response.End
end if
r.close
set r=nothing
end if
dim site,siteurl,email,copyright,login,icp
sql="select * from title"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
site=rs("site")
siteurl=rs("siteurl")
email=rs("email")
Copyright=rs("Copyright")
login=rs("login")
icp=rs("icp")
qq=rs("qq")
xiaoyu_ads01=rs("xiaoyu_ads01")
xiaoyu_ads02=rs("xiaoyu_ads02")
xiaoyu_ads03=rs("xiaoyu_ads03")
xiaoyu_ads04=rs("xiaoyu_ads04")
xiaoyu_ads05=rs("xiaoyu_ads05")
xiaoyu_ads06=rs("xiaoyu_ads06")
xiaoyu_ads07=rs("xiaoyu_ads07")
xiaoyu_ads08=rs("xiaoyu_ads08")
xiaoyu_ads09=rs("xiaoyu_ads09")
xiaoyu_ads10=rs("xiaoyu_ads10")
xiaoyu_baidu=rs("xiaoyu_baidu")
xiaoyu_ku=rs("xiaoyu_ku")
rs.close
set rs=nothing
%>
<html>
<head>
<title>网站配置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK REL="stylesheet" HREF="css.css" TYPE="text/css">
</head>
<body>
<form action="Admin_SiteConfig.asp" method="post">
<table width="100%" border="0" cellspacing="1" cellpadding="8" align="center" bgcolor="#999999">
<tr>
<td bgcolor="#cccccc" align="center" colspan="2">网站信息配置</td></tr>
<tr>
<td bgcolor="#eeeeee"><br>网站名称：</td>
<td bgcolor="#eeeeee"><input type="text" name="yl1" value=<%=site%>> <font color="#FF0000">*</font></td></tr>
<tr>
<td bgcolor="#eeeeee">网站地址：</td>
<td bgcolor="#eeeeee"><input type="text" name="yl2" value=<%=siteurl%>> <font color="#FF0000">* <BR>请填写网址站的地址，注：绝对不要加上“ http:// ”，网址结束请匆加“ / ”。</font></td></tr>
<tr>
<td bgcolor="#eeeeee">站长邮箱： </td>
<td bgcolor="#eeeeee"><input type="text" name="yl3" value=<%=email%>> <font color="#FF0000">*</font></td></tr>
<tr>
<td bgcolor="#eeeeee">备案ICP： </td>
<td bgcolor="#eeeeee"><input type="text" name="yl6" value=<%=icp%>></td></tr>
<tr>
<td bgcolor="#eeeeee">统计代码： </td>
<td bgcolor="#eeeeee"><input type="text" name="yl7" value=<%=qq%>></td></tr>
<tr>
<td bgcolor="#eeeeee">新站登陆：</td>
<%
if login=1 then
Response.Write "<td bgcolor='#eeeeee'><input type='radio' value='1' name='yl5' checked> 打开<input type='radio' name='yl5' value='0'> 关闭"
else
Response.Write "<td bgcolor='#eeeeee'><input type='radio' value='1' name='yl5'> 打开<input type='radio' name='yl5' value='0' checked> 关闭"
end if
%> 说明：选择“关闭”则不允许新站登陆</tr>
<tr>
<td bgcolor="#eeeeee" VALIGN="TOP">版权信息：</td>
<td bgcolor="#eeeeee"><textarea cols="60%" rows="5" name="yl4"><%=Copyright%></textarea> <font color="#FF0000">*</font></td></tr>
<tr>
<td bgcolor="#eeeeee" VALIGN="TOP">广告一：<br>460x60</td>
<td bgcolor="#eeeeee"><textarea cols="60%" rows="4" name="yl8"><%=xiaoyu_ads01%></textarea></td></tr>
<tr>
<td bgcolor="#eeeeee" VALIGN="TOP">广告二：<br>200x60</td>
<td bgcolor="#eeeeee"><textarea cols="60%" rows="4" name="yl9"><%=xiaoyu_ads02%></textarea></td></tr>
<tr>
<td bgcolor="#eeeeee" VALIGN="TOP">广告三：<br></td>
<td bgcolor="#eeeeee"><textarea cols="60%" rows="4" name="yl10"><%=xiaoyu_ads03%></textarea></td></tr>
<tr>
<td bgcolor="#eeeeee" VALIGN="TOP">广告四：<br></td>
<td bgcolor="#eeeeee"><textarea cols="60%" rows="4" name="yl11"><%=xiaoyu_ads04%></textarea></td></tr>
<tr>
<td bgcolor="#eeeeee" VALIGN="TOP">广告五：<br></td>
<td bgcolor="#eeeeee"><textarea cols="60%" rows="4" name="yl12"><%=xiaoyu_ads05%></textarea></td></tr>
<tr>
<td bgcolor="#eeeeee" VALIGN="TOP">广告六：<br></td>
<td bgcolor="#eeeeee"><textarea cols="60%" rows="4" name="yl13"><%=xiaoyu_ads06%></textarea></td></tr>
<tr>
<td bgcolor="#eeeeee" VALIGN="TOP">广告七：<br></td>
<td bgcolor="#eeeeee"><textarea cols="60%" rows="4" name="yl14"><%=xiaoyu_ads07%></textarea></td></tr>
<tr>
<td bgcolor="#eeeeee" VALIGN="TOP">广告八：<br></td>
<td bgcolor="#eeeeee"><textarea cols="60%" rows="4" name="yl15"><%=xiaoyu_ads08%></textarea></td></tr>
<tr>
<td bgcolor="#eeeeee" VALIGN="TOP">广告九：<br></td>
<td bgcolor="#eeeeee"><textarea cols="60%" rows="4" name="yl16"><%=xiaoyu_ads09%></textarea></td></tr>
<tr>
<td bgcolor="#eeeeee" VALIGN="TOP">广告十：<br></td>
<td bgcolor="#eeeeee"><textarea cols="60%" rows="4" name="yl17"><%=xiaoyu_ads10%></textarea></td></tr>
<tr>
<td bgcolor="#eeeeee"> </td>
<td bgcolor="#eeeeee"><input type="submit"> <input type="hidden" value="doit" name="action">
</td>
</form>
</tr>
</table>
</center>
</div>
</body>
</html>